00010 



XLIST 
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01970 

00010 ;SOME MACROS FOR DEFINING CONFIGURATION 

00020 

00030 DEFINE NAME (A) 

00040 <DEFINE NAMEl 

00050 <C0NFIG: ASCI2 /A/ 

00060 INTERNAL CONFIG 

00070 > 

00080 XP A.0 

00090 SUBTTL A CONFIGURATION 

00100 > 

00110 

00120 DEFINE DATE (A) 

00130 <DEFINE DATEl 

00140 <SYSDAT: ASCIZ /A/ 

00150 INTERNAL SYSDAT 

00160 >> 

00170 

00180 DEFINE VERSION (A.B) 

00190 <DEFINE VERSl 

00200 <SYSNUM: XWD tO'A.tD'B 

00210 XP SYSMOD.tD'A 

00220 XP SYSVER.tD'B 

00230 INTERNAL SYSNUM 

00240 >> 

00250 

00260 DEFINE CUSPTAPE (A) 

00270 <DEFINE CUSPl 

00280 <SYSTAP: SIXBIT /A/ 

00290 INTERNAL SYSTAP 

00300 >> 

00310 

00320 DEFINE ACPDL ( J , CHJN, CHJPDN ) 

00330 < CH'J'N=CHJN 

00340 CH'J'PDN=CHJPDN 

00350 > 
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00360 
00370 



NAME <MINIMAL> 
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MINIMAL CONFIGURATION 



000000 466231 644632 

000001 406300 000000 

000002 341326 133132 

000003 331520 000000 

000004 000001 000004 

000005 446441 200000 



00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00020 
CONFIG: 

00030 
SYSDAT: 

00040 

sysnum: 

00050 

SYSTAP: 

00060 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 
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DATE <8-16-65> 
VERSION 1.4 
CUSPTAPE OTA0 



DEFINE THE 10 PART OF THE SYSTEM 
THAT is: 

DEFINE INTERRUPT SERVICE ROUTINES TO BE USED 
ASSIGN DEVICES TO PI CHANNELS 



DEFINE SYSTEM 
< 

ASSOC APR,6,<> 

ASSOC CTY,3,<> 

ASSOC SCN,3,<TTY0,TTYl> 

ASSOC DTC,4,<DTA0> 
> 



DTSIZ=1 ;MULTIPLE DECTAPE DIRECTORIES 

SCNLINsl 

;DEFINE highest AC to save and length of PO list FOR EACH PI CHANNEL 

ACPDL (1,0,0) 
ACPDL (2,0,0) 
ACPDL (3,11,20) 
ACPDL (4,11,20) 
ACPDL (5,0,0) 
ACPDL (6,17,20) 
ACPDL (7,0,0) 

NAMEl 
ASCIZ /MINIMAL/ 

DATEl 
ASCIZ /8-16-65/ 

VERSl 
XWD TDl,tD4 

CUSPl 
SIXBIT /DTA0/ 

;CONFIGURATION INDEPENDANT PART OF lOINIT FOLLOWS: 

EXTERNAL ERROR 

;SETUP CHANNEL SAVE AND RESTORE ROUTINES 

CHANU1=0 
CHANU2=0 
CHANU3S0 
CHANU4=0 
CHANU5=0 
CHANU6=0 
CHANU7=0 

DEFINE ASS0C(A,N0.D) 









00220 








00230 








00240 








00250 








00260 








00270 








00280 








00290 








00300 








00310 








00320 








00330 








00340 








00350 








00360 








00370 








00380 








00390 








00400 








00410 








00420 








00430 








00440 








00450 








00460 








00470 








00480 








00490 








00500 








00510 








00520 


000006 


000000 


000000 


CH6SAV: 


000007 


202740 


000033' 




000010 


201740 


000014' 




000011 


251740 


000032' 




000012 


200140 


000057' 




000013 


254020 


000006' 




000014 


000000 


000000 


EXP 


000015 


000000 


000000 


EXP 


000016 


000000 


000000 


EXP 


000017 


000000 


000000 


EXP 


000020 


000000 


000000 


EXP 


000021 


000000 


000000 


EXP 


000022 


000000 


000000 


EXP 


000023 


000000 


000000 


EXP 


000024 


000000 


000000 


EXP 


000025 


000000 


000000 


EXP 


000026 


000000 


000000 


EXP 


000027 


000000 


000000 


EXP 


000030 


000000 


000000 


EXP 


000031 


000000 


000000 


EXP 


000032 


000000 


000000 


EXP 


000033 


000000 


000000 


EXP 


000034 


000000 


000054' 




000035 


000000 


000000 


EXP 


000036 


000000 


000000 


EXP 


000037 


000000 


000000 


EXP 


000040 


000000 


000000 


EXP 


000041 


000000 


000000 


EXP 



<IFE CHANU'NO.< 

CHANU'N0=1 

INTERNAL CH ' NO • SAV, CH ' NO ' , CH ' NO ' XI T, CH ' NO ♦ SAC 



CH'NO'SAV: 
MOVEM CH'NO'N, CH ' NO • SAC+CH ' NO • N 
MOVEI CH'NO'N, CH'NO'SAC 
BLT CH'NO'N, CH'NO'SAC+CH'NO'N-1 
MOVE POP, CH'NO'CJ 
JRST eCH'NO'SAV 



;D0 only ONCE FOR EACH CHANNE 



CH'NO'SAC: REPEAT CH ' NO ' N+1, <EXP 0> ;SPACE TO SAVE SOME AC'S 
EXP CH'NO'XIT ;FIRST ENTRY IN PD LIST(CHAN. EXIT) 
REPEAT CH'N0'PDN-1,<EXP 0> ;REST OF PD LIST 

CH'NO'XIT: MOVSI CH'NO'N, CH'NO'SAC 
BLT CH'NO'N, CH'NO'N 
JEN ^CH'NO 



CH'NO'CJ: XWD -CH'N0'PDN+1,CH'N0'SAC+CH'N0'N+1 



; INIT. SETTING OF P 



CH'NO': ;PC STORED HERE BY JSR 
JRST .+1 MNSTR. AT END OF SERVICE CHAIN 

AOS CH'NO'ERR ;SPURIOUS INTERRUPT, ADD TO COUNT 

JEN PCH'NO ;AN0 DISMISS 

> 

> 

JGENERATE THE SAVE AND RESTORE ROUTINES 



SYSTEM 
ASSOC APR,6,<> 


MOVEM CH6N, CH6SAC+CH6N 
MOVEI CH6N, CH6SAC 
BLT CH6N,CH6SAC+CH6N-1 
MOVE POP, CH6CJ 
JRST @>CH6SAV 



;D0 only ONCE FOR EACH CHANNEL 



;SPACE TO SAVE SOME ACS 
EXP CH6XIT 



;first entry in pd listcchan. exit) 



000042 


000000 


000000 


EXP 





000043 


000000 


000000 


EXP 





000044 


000000 


000000 


EXP 





000045 


000000 


000000 


EXP 





mm^6 


000000 


000000 


EXP 





000047 


000000 


000000 


EXP 





000050 


000000 


000000 


EXP 





000051 


000000 


000000 


EXP 





000052 


000000 


000000 


EXP 





000053 


000000 


000000 


EXP 





000054 


205740 


000014' 


CH6XIT: 


000055 


251740 


000017 






000056 


254520 


000060' 






000057 


777761 


000034' 


CH6CJ: 


000060 


000000 


000000 


CH6; 


> 


000061 


254000 


000062' 






000062 


350000 


000317' 






000063 


254520 


000060' 






000064 


000000 


000000 


CH3SAV: 


000065 


202440 


000103' 






000066 


201440 


000072' 






000067 


251440 


000102' 






000070 


200140 


000127' 






000071 


254020 


000064' 






000072 


000000 


000000 


EXP 





000073 


000000 


000000 


EXP 





000074 


000000 


000000 


EXP 





000075 


000000 


000000 


EXP 





000076 


000000 


000000 


EXP 





000077 


000000 


000000 


EXP 





000100 


000000 


000000 


EXP 





000101 


000000 


000000 


EXP 





000102 


000000 


000000 


EXP 





000103 


000000 


000000 


EXP 





000104 


000000 


000124' 






000105 


000000 


000000 


EXP 





000106 


000000 


000000 


EXP 





000107 


000000 


000000 


EXP 





000110 


000000 


000000 


EXP 





000111 


000000 


000000 


EXP 





000112 


000000 


000000 


EXP 





000113 


000000 


000000 


EXP 





000114 


000000 


000000 


EXP 





000115 


000000 


000000 


EXP 





000116 


000000 


000000 


EXP 





000117 


000000 


000000 


EXP 





000120 


000000 


000000 


EXP 





000121 


000000 


000000 


EXP 





000122 


000000 


000000 


EXP 





000123 


000000 


000000 


EXP 





000124 


205440 


000072' 


CH3XIT: 


000125 


251440 


000011 






000126 


254520 


000130' 






000127 


777761 


000104' 


CH3CJ: 


000130 


000000 


000000 


CH3: 




000131 


254000 


000132' 






000132 


350000 


000314' 






000133 


254520 


000130' 







;rest of pd list 
movsi ch6n. ch6sac 
blt ch6n, ch6n 

JEN 9CH6 

XWD -CH6PDN+1,CH6SAC+CH6N+1 MNIT, 
;PC STORED HERE BY JSR 

JRST .+1 MNSTR. AT END OF SERVICE 



SETTING OF PD POINTER(PDP) 



CHAIN 



{SPURIOUS 
DISMISS 



AOS CH6ERR 

JEN PCH6 JAND 

ASSOC CTY,3.<> 



MOVEM CH3N, CH3SAC+CH3N 

MOVEI CH3N, CH3SAC 

BLT CH3N,CH3SAC+CH3N-1 

MOVE POP, CH3CJ 

JRST 0CH3SAV 



INTERRUPT, ADD TO COUNT 



JDO ONLY ONCE FOR EACH CHANNEL 



;SPACE TO 



SAVE SOME ACS 
EXP CH3XIT 



JFIRST ENTRY IN PD LIST(CHAN. EXIT) 



;REST OF PD LIST 

MOVSI CH3N, CH3SAC 

BLT CH3N, CH3N 

JEN e>CH3 

XWD -CH3PDN+1,CH3SAC+CH3N+1 MNIT, SETTING OF PD POINTER(PDP) 

;PC STORED HERE BY JSR 

JRST .+1 JINSTR. AT END OF SERVICE CHAIN 

AOS CH3ERR JSPURIOUS INTERRUPT, ADD TO COUNT 

JEN eCH3 ;AND DISMISS 

ASSOC SCN,3,<TTY0,TTY1> 



000134 
000135 
000136 
000137 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000200 
000201 
000202 
000203 



000204 
000205 
000206 



000000 000000 
202440 000153' 
201440 000142' 
251440 000152' 
200140 000177' 
254020 000134' 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000174' 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
000000 000000 
205440 000142' 
251440 000011 
254520 000200' 
777761 000154' 
000000 000000 
254000 000202' 
350000 000315' 
254520 000200' 



CH4SAV: 



000000 000000 
350000 000312' 
254520 000204' 



000207 000000 000000 



EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 

EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
EXP 
CH4XIT: 



CH4CJ: 
CH4: 



00530 

00540 

00550 

00560 

00570 

00580 

00590 

00600 

00610 

00620 

00630 

00640 

NULCHN(l) 

CHi: 

CHIXIT: 

00650 

NULCHN(2) 

CH2: 



ASSOC DTC,4,<OTA0> 



MOVEM CH4N, CH4SAC+CH4N 

MOVEI CH4N, CH4SAC 

BLT CH4N,CH4SAC+CH4N-1 

MOVE POP, CH4CJ 

JRST PCH4SAV 



;do only once for each channel 



;SPACE TO SAVE SOME ACS 
EXP CH4XIT 



;first entry in pd listxchan. exit) 



;rest of pd list 
movsi ch4n, ch4sac 
blt ch4n, ch4n 

JEN e>CH4 

XWD -CH4P0N+1,CH4SAC+CH4N+1 MNIT. SETTING OF PD POINTER(PDP) 

;PC STORED HERE BY JSR 

JRST .+1 MNSTR. AT END OF SERVICE CHAIN 

AOS CH4ERR ;SPURIOUS INTERRUPT, ADD TO COUNT 

JEN PCH4 ;AND DISMISS 

;SET UP NULL CHANNEL ROUTINES FOR UNUSED CHANNELS 

DEFINE NULCHN(J) 

< 

INTERNAL CH ' J , CH • J • XI T 

CH'J: 

CH'J'XIT: AOS CH'J'ERR 

JEN PCH'J 
> 



IFE CHANU1,<NULCHN(1)> 





AOS CHIERR 

JEN e>CHl 



IFE CHANU2,<NULCHN(2)> 



000210 
000211 



000212 
000213 
000214 



000215 
000216 
000217 



350000 000313' 
254520 000207' 



000000 000000 
350000 000316' 
254520 000212' 



000000 000000 
350000 000320' 
254520 000215' 



CH2XIT: 

00660 

00670 

00680 
NULCHN(5) 
CH5: 
CH5XIT: 

00690 

00700 
NULCHN(7) 
CH7: 
CH7XIT: 

00710 



AOS CH2ERR 
JEN eCH2 



IFE CHANU3,<NULCHN(3)> 
IFE CHANU4,<NULCHN(4)> 
IFE CHANU5,<NULCHN(5)> 





AOS CH5ERR 

JEN e>CH5 



IFE CHANU6,<NULCHN(6)> 
IFE CHANU7,<NULCHN(7)> 





AOS CH7ERR 

JEN PCH7 
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00720 

00730 JASSIGN DEVICE TO CHANNELS AND SETUP CORESPONDENCE TABLE 

00740 ;0F CHANNELS TO SERVICE ROUTINES 

00750 

00760 DEFINE ASSOC (A.N.D) 

00770 < A'RET=CH'N'XIT 

00780 A'SAV=CH'N'SAV 

00790 A'SAC=CH'N'SAC 

00800 A'CHL=CH'N 

00810 A'CHN=N 

00820 A'BIT=1 

00830 REPEAT 7-N , <A • B I T=A ' BIT«2> 

00840 A'OFF=1000+A'BIT ;CONO PI, A'OFF WILL TURN CHANNEL OFF 

00850 A'ON=2000+A'BIT ;TURN BACK ON 

00860 A'ACT=4000+A'8IT ;FORCE INTERRUPT ON CHAN. 

00870 INTERN A'RET, A'SAV, A'CHL, A'CHN, A'SAC 

00880 INTERNAL A ' OFF , A ' ON , A ' ACT , A ' B I T 

00890 XWD A'CHL, A'lNT 

00900 EXTERNAL A'INT 

00910 > 

00920 

00930 INTERNAL DEVINT 

00940 DEVINT: SYSTEM 
ASSOC APR,6,<> 

000220 000060'00000« XWD APRCHL,APRINT 

ASSOC CTY,3,<> 

000221 000130'000000 XWD CTYCHL.CTYINT 

ASSOC SCN,3,<TTY0,TTY1> 

000222 000130'000000 XWD SCNCHL,SCNINT 

ASSOC DTC,4,<DTA0> 

000223 000200'000000 XWD DTCCHL, DTC I NT 

00950 NDEV=. -DEVINT ;N0. OF DEVICE INTERUPT SERVICE ROUTINES 

00960 NDEVM1=NDEV-1 ;(USED BY ONCE) 

00970 INTERNAL NDEVMl 

00980 

00990 
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01000 

01010 MNITIALIZE SOME 10 DEVICES 

01020 nOINI CALLED BY A PUSHJ PDP, FROM SYSINI AT SYSTEM INITIALIZATION 

01030 

01040 DEFINE lOINIT (A) 

01050 <IRP A 

01060 < EXTERNAL AMNI 

01070 PUSHJ PDP.A'INI 

01080 >> 

01090 

01100 DEFINE ASSOC (A,B,C) 

01110 < IFIDN <A><MTC>»< lOINIT MTO 

01120 IFIDN <A><DTC>,< lOINIT OTO 

01130 IFIDN <A><LPT>,< lOINIT LPT> 

01140 IFIDN <A><SCN>,< lOINIT SCN> 

01150 IFIDN <A><PTP>,<IOINIT PTP> 

01160 IFIDN <A><PTR>,<IOINIT PTR> 

01170 > 

01180 

01190 INTERNAL lOINI 

01200 

01210 lOINi: SYSTEM 

ASSOC APR,6,<> 

ASSOC CTY,3,<> 

ASSOC SCN,3,<TTY0.TTY1> 

000224 260140 000000 PUSHJ PDP.SCNINI 

ASSOC DTC,4,<DTA0> 

000225 260140 000000 PUSHJ PDP.DTCINI 

000226 254000 000000 01220 JRST CLKINI ;ALWAYS INIT. CLOCK 

01230 

01240 EXTERNAL CLKINI 
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01250 

01260 ;CLOCK CONTROL PARAMETERS 
01270 

01280 CLDS=4000+APRCHN ;CLOCK DISABLE 

01290 CLEN=2000+APRCHN ;CLOCK ENABLE 

01300 

01310 INTERNAL CLDS.CLEN 

01320 
01330 

01340 ;BYTE POINTERS 
01350 
000227 270400 000014 01360 PUUOac: POINT 4,UU0,12 ;UUO AC FIELD 

000230 000400 000000 01370 PIOMOD: POINT 4,I0S,35 ;M0DE BITS 

000231 331106 000001 01380 PJOBN: POINT 9 . DEVCHR ( DEVDAT ) , 8 JDEVICE JOB ASSIGNMENT 

000232 220406 000001 01390 PJDCHN: POINT 4 , DEVCHR (DEVDAT ), 17 JJOB DEVICE CHANNEL NO, 

000233 140606 000001 01400 PUNIT: POINT 6, DEVCHR(DEVDAT ) , 23 ;DEVICE UNIT NO. 

01410 

01420 INTERNAL PUUOAC , P lOMOD, PJOBN , PJDCHN .PUNIT 

01430 

01440 .-COMMON SUBROUTINE RETURNS 

01450 

000234 350003 000000 01460 CP0PJ2: AOS (PDP) 

000235 350003 000000 01470 CPOPJi: AOS (PDP) 

000236 263140 000000 01480 CPOPJ: POPJ POP, 

01490 

01500 INTERNAL CPOPJ, CPOPJI .CP0PJ2 
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000237 
000240 
000241 



000246 
000247 

000250 
000251 

000252 
000253 



000000 000000 
000000 000000 
000000 000000 



000000 000000 
000000 000000 

000000 000000 
000000 000000 
000000 000000 
000000 000000 



000256 000000 000000 



01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 



000277 000000 000000 



01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 



, SYSTEM DATA STORAGE 



INTERNAL JOB, JOBADR, JBTADR, JBTSTS, USRREL , USRINF , USRJDA 
INTERNAL USRPDP . JOBDAT, USRDDT.USRSAV, USRUXT, USRLO, USRHI 
INTERNAL COMCNT, I OCOMP, USRPOV, STOPU, SCHEDF, T I ME, JBTADl 
INTERNAL MTAVAL , DCAVAL , OTAVAL, MTREQ, DCREQ, DTREQ, TTYTAB, CORTAB 
INTERNAL CHIERR, CH2ERR, CH3ERR, CH4ERR, CH5ERR, CH6ERR, CH7ERR 
INTERNAL CORLST, CORTAB , CORTAL, SYSENO, SYSBEG, DEVOPR 

JOBN=0 JDEFINE NO. OF JOBS (0 THRU JOBN-1) 

;THERE must be more TTY device data BLOCKS THAN JOBS. 

DEFINE ASSOC (A,N,D) 

<IRP D,<IFIDN <A><SCN>,<JOBN=JOBN+1>>> 

SYSTEM 
ASSOC APR,6,<> 
ASSOC CTY,3,<> 
ASSOC SCN,3,<TTY0,TTY1> 
ASSOC DTC,4,<DTA0> 
MJOBN=-JOBN 
INTERNAL JOBN,MJOBN 



SYSBEG: ;FIRST LOC in SYSTEM DATA AREA 

XP SYSBG1,SYSBEG+1 ;first L0C+1 

job: ;CURRENT job number EXCEPT wen SCHEDF IS N0N-2ER0 

JOBADR: ;CONTAINS ADDRESS OF JOB CURRENTLY RUNNING 

JOBDAT: ;CONTAINS ADDRESS OF JOB DATA AREA 



JBTADR: 
XP JBTADl 
JBTSTS: 

USRPDP: 

USRREL : 

USRLO: 

USRUXT: 

USRLEV: 

USRSAV: 

USRPOV: 



BLOCK JOBN 
JBTADR+1 1 
BLOCK JOBN 



;C(LH)=PROTECT, C( RH) sRELOCATlON 
ADDRESS OF JOB KUSED BY SYSMAK) 

;C0NTAINS STATUS INFORMATION FOR EACH J 



USRINF: 
USRJDa: 
XP USRHI 
XP USRPFI, . 
XP USRPFU, . 
USRDDT: 






;first 









BLOCK 2 



BLOCK 20 

-1 

.-1 



;USER PUSH DOWN POINTER 

;LH=0. RH CONTAINS CONTENTS OF PROTECTION REGISTE 
LOC CLEARED BY SETUSR SUBROUTINE 

JUNUSED, JOBUXT USED TO SAVE UUO PC(UUO0) 
JUNUSED, JOBLEV used TO SAVE LOC. 40 
JTEMPORARY STORAGE FOR UUO HANDLER 
;PUSH DOWN OVERFLOW TRAP 



;UN LAYED OUT USER INFORMATION 

;RH=J0B DEVICE ASSIGNMENTS FOR THIS USER,LH=UUOS 

;LAST LOC CLEARED BY SETUSR ROUTINE 

.'LAST LOC PROTECTED FROM 10 SERVICE 

;LAST LOC PROTECTED FROM USER PROGRAM 

{STARTING ADDR OF USER DOT 
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000300 000000 000000 

000301 000000 000000 

000302 000000 000000 



000303 777777 777777 

000304 777777 777777 

000305 777777 777777 

000306 000000 000000 

000307 000000 000000 

000310 000000 000000 

000311 000000 000000 

000312 000000 000000 

000313 000000 000000 

000314 000000 000000 

000315 000000 000000 

000316 000000 000000 

000317 000000 000000 
000320 000000 000000 



01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 



;device just become available flags 

mtaval: ;magnetic tape 

dcaval: ;data control 

otaval: jdectape 

;nUMBER of jobs waiting for busy DEVICES(-1=N0NE. 0=1 using. 1=1 USIN 



MTREQ: 

DCREQ: 

DTREQ: 

lOCOMP: 

COMCNT: 

STOPU: 

SCHEDF: 

chierr: 

CH2ERR: 
CH3ERR: 
CH4ERR: 
CH5ERR: 
CH6ERR: 
CH7ERR: 



-1 

-1 

-1 









{MAGNETIC TAPE 
;DATA CONTROL 

;dectape 

{number of users in 10 wait state 

{number of commands typed-in but not decoded 

{non-zero when clock interrupt forced to stop 

{non-zero when clock routine is scheduling 

{spurious interrupt counts for each channel 



USE 









USRL01=USRL0+1 
INTERNAL USRLOl 
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02220 

000321 000000 000000 02230 time: ;TIME SYSTEM HAS RUN IN 60THS OF A SECO 

02240 
02250 

02260 XP TTYLEN,SCNLIN+1 ;LENGTH OF TTY TRANSLATOR TABLEdNCLUOING CTY) 

02270 TTYTAR: block TTYLEN ;TTY TRANSLATOR TABLE 
02280 ;SIGN BIT = 1 IF COMMAND JUST TYPED 

02290 ;BITS 1-9, JOB CONSOLE IS ATTACHED TO 

02300 ;BITS 18-35, THE DEVICE DATA BLOCK FOR 

000324 000000 000000 02310 DEVOPR: ;SIXBIT PHYSICAL NAME OF OPERATORS 

02320 ;CONSOLE SET BY SCNSER TO FIRST ACTIVE TTY. 

02330 ;L0CATI0NS FOR CORE ALLOCATION 

02340 XP C0RBLK.tD256 JNO. OF IK BLOCKS POSSIBLE 

02350 CORTAB: BLOCK <CORBLK>/ tD36+l ;1K BLOCK USE BIT TABLE 

02360 ;A 1 MEANS BLOCK IS IN USE 

000335 000000 000000 02370 CORLST: ;l BIT BYTE POINTER TO LAST FREE BLOCK POSSIBLE 

000336 000000 000000 02380 CORTAL: ;TOTAL NO. OF FREE CORE BLOCKS LEFT 

02390 ;CORLST AND CORTAL ARE SET UP AT SYSTEM INITIALIZATION 

02400 

02410 SYSEND=.-1 JLAST LOC . CLEARED BY SYSINI 

02420 

02430 INTERNAL SYSSIZ 

02440 EXTERNAL SYSFIN 

000337 000000 000000 02450 SYSSIZ: EXP SYSFIN ;SIZE OF MONITOR(LAST LOC. USED) 
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THERE ARE NO ERRORS 
PROGRAM BREAK IS 00(71340 



02460 
02470 
02480 



END, 
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A 

ACl 

AC2 

AC3 

AL 

APRACT 

APRBIT 

APRCHL 

APRCHN 

APRINT 

APROFF 

APRON 

APRRET 

APRSAC 

APRSAV 

ASSCON 

ASSPRG 

B 

BUFPNT 

BUFWRD 

CHI 

CHIERR 

CHIN 

CHIPDN 

CHIXIT 

CH? 

CH2ERR 

CH2N 

CH2PDN 

CH2XIT 

CH3 

CH3CJ 

CH3ERR 

CH3N 

CH3PDN 

CH3SAC 

CH3SAV 

CH3XIT 

CH4 

CH4CJ 

CH4ERR 

CH4N 

CH4PDN 

CH4SAC 

CH4SAV 

CH4XIT 

CH5 

CH5ERR 

CH5N 

CH5P0N 

CH5XIT 

CH6 

CH6CJ 

CH6ERR 

CH6N 



00(^000 
000015 
000016 
000017 
000001 
004002 
000002 
000060 
000006 
000220 
001002 
002002 
000054 
000014 
000006 
400000 
200000 
000014 
000012 
000013 
000204 
000312 
000000 
000000 
000205 
000207 
000313 
000000 
000000 
000210 
000130 
000127 
000314 
000011 
000020 
000072 
000064 
000124 
000200 
000177 
000315 
000011 
000020 
000142 
000134 
000174 
000212 
000316 
000000 
000000 
000213 
000060 
000057 
000317 
000017 



INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
FXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 



INT 
INT 
INT 



INT 
INT 

INT 



INT 
INT 
INT 
INT 

INT 



INT 
INT 
INT 
INT 
INT 



INT 
INT 

INT 
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CH6PDN 

CHfSAC 

CH6SAV 

CH6XIT 

CH7 

CH7ERR 

CH7N 

CH7PDN 

CH7XIT 

CHANUl 

CHANU2 

CHANU3 

CHANU4 

CHANU5 

CHANU6 

CHANU7 

CLDS 

CLFN 

CLKINI 

CLOSB 

CLSIN 

CLSOUT 

COMCNT 

CONFIG 

CORBLK 

CORLST 

CORTAB 

CORTAL 

CPOPJ 

CPOPJl 

CP0PJ2 

CTYACT 

CTYBIT 

CTYCHL 

CTYCHN 

CTYINT 

CTYOFF 

CTYON 

GTYRFT 

CTYSAC 

CTYSAV 

D 

DAT 

nCAVAL 

DCL 

OCREO 

new 

GDI 

DDO 

DDTMEM 

ODTSYM 

DEN 

DEVADR 

DEVBUF 

DEVCHR 



000020 

000014' 

000006* 

000054' 

000215' 

000320' 

000000 

000000 

000216' 

000000 

000000 

000001 

000001 

000000 

000001 

000000 

004006 

002006 

000226' 

002000 

000002 

000001 

000307' 

000000 ' 

000400 

000335' 

000325' 

000336' 

000236' 

000235' 

000234' 

004020 

000020 

000130' 

000003 

000221' 

001020 

002020 

000124' 

000072' 

000064' 

000017 

000005 

000301' 

000001 

000304' 

020000 

000007 

000006 

000037 

000036 

000004 

000007 

000006 

000001 



INT 
INT 
TNT 

INT 
INT 



INT 



INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
FXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
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DEVCTR 

DEVDAT 

DEVIAD 

DEVINT 

DEVIOS 

OEVLOG 

DEVMOD 

OEVNAM 

DEVOAD 

DEVOPR 

DEVPTR 

DEVSER 

OGF 

DIN 

DLK 

DOU 

OR 

ORL 

DSI 

DSO 

DTAVAL 

DTCACT 

OTCBIT 

DTCCHL 

DTCCHN 

OTCINI 

OTniNT 

DTCOFF 

OTCON 

OTCRET 

DTCSAC 

DTCSAV 

OTREQ 

OTSIZ 

DTW 

OVAVAL 

DVCDR 

DVniR 

DVniRI 

OVIN 

nVLPT 

DVMTA 

OVOUT 

OVTTY 

ENTRB 

ERROR 

I 

IB 

IBUFB 

INITB 

INPB 

10 

lOACT 

lOBEG 

lOBKTL 



000011 

000006 

000007 

000220' 

000002 

000005 

000004 

000000 

000010 

000324' 

000010 

000003 

000012 

000003 

000005 

000002 

000016 

000000 

000011 

000010 

000302' 

004010 

000010 

000200' 

000004 

000225' 

000223' 

001010 

002010 

000174' 

000142' 

000134' 

000305' 

000001 

040000 

000040 

100000 

000004 

400000 

000002 

040000 

000020 

000001 

000010 

020000 

000000 

000010 

000013 

200000 

400000 

010000 

000020 

010000 

000002 

040000 



INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 

INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
TNT 
INT 
INT 
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lOCOMP 


000306' 


INT 


lOCON 


000040 


INT 


lOnEND 


020000 


INT 


lOOERR 


?00000 


INT 


ionise 


400000 


INT 


lOnONE 


400000 


INT 


lOnTER 


1 00000 


INT 


lOFNO 


000040 


INT 


lOFST 


000004 


INT 


lOlMPM 


400000 


INT 


lOlNI 


000224' 


INT 


lONRCK 


000100 


INT 


lORDEL 


000100 


INT 


lORET 


000020 


INT 


lOS 


000000 


INT 


lOSTRT 


000010 


INT 


lOUSE 


400000 


INT 


lOW 


000001 


INT 


lOWC 


000020 


INT 


lOWS 


400000 


INT 


ITEM 


000004 


INT 


JBFADR 


000000 


INT 


JBFCTR 


000002 


INT 


JBFPTR 


000001 


INT 


JBTADl 


000243' 


INT 


JBTADR 


000242' 


INT 


JBTSTS 


000244' 


INT 


JBUF 


000005 


INT 


JDAT 


000011 


INT 


JERR 


002000 


INT 


JIOW 


100000 


INT 


JNA 


004000 


INT 


JOR 


000237' 


INT 


JORADR 


000240* 


INT 


JORDAT 


000241' 


INT 


JORN 


000002 


INT 


LOOKR 


040000 


INT 


MINIMA 


000000 


INT 


MJOBN 


777777777776 


INT 


MTAVAL 


000300' 


INT 


MTREQ 


000303* 


INT 


MTW 


010000 


INT 


NDFV 


000004 




NDEVMl 


000003 


INT 


OBUFB 


100000 


INT 


OUTPB 


004000 


INT 


POP 


000003 


INT 


PICHN 


000100 


INT 


PIOMOD 


000230' 


INT 


PJDCHN 


000232' 


INT 


PJOBN 


000231' 


INT 


PROG 


000007 


INT 


PUNIT 


000233' 


INT 


PUUOAC 


000227' 


INT 


RUN 


200000 


INT 
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RUNABL 

SCHEDF 

SCNACT 

SCNBIT 

SCNCHL 

SCNCHN 

SCNINI 

SCNINT 

SCNLIN 

SCNOFF 

SCNON 

SCNRFT 

SCNSAC 

SCNSAV 

STOPU 

SYSBEG 

SYSBGl 

SYSDAT 

SYSEND 

SYSFIN 

SYSMOD 

SYSNUM 

SYSSIZ 

SYSTAP 

SYSVER 

TAG 

TACl 

TEM 

TIME 

TTYATC 

TTYLEN 

TTYTA8 

TTYUSE 

USRDDT 

USRHI 

USRINF 

USRJDA 

USRLFV 

USRLO 

USRLOl 

USRMOO 

USRPDP 

USRPFI 

USRPFU 

USRPOV 

USRREL 

USRSAV 

USRUXT 

UUO 



204000 

000311' 

004020 

000020 

000130' 

000003 

000224' 

000222' 

000001 

001020 

002020 

000124' 

000072' 

000064' 

000310' 

000237' 

000240' 

000002' 

000336' 

000337' 

000001 

000004' 

000337' 

000005' 

000004 

000001 

000002 

000010 

000321' 

020000 

000002 

000322' 

010000 

000277' 

000276' 

000256' 

000257' 

000251' 

000250' 

000251' 

010000 

000246' 

000276' 

000277' 

000253' 

000247' 

000252' 

000250' 

000014 



INT 
INT 
INT 
INT 
INT 
INT 
EXT 
EXT 

INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 

INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 



END OF ASSEMBLY 



00010 



XLIST 
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01970 
00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
002B0 
00290 
00300 
00310 
00320 
00330 
00340 
00350 



;SOME MACROS FOR DEFINING CONFIGURATION 

DEFINE NAME (A) 

<DEFINE NAMEl 

<C0NFI6: ASCIZ /A/ 

INTERNAL CONFIG 

> 

XP A,0 

SUBTTL A CONFIGURATION 

> 

DEFINE DATE (A) 
<DEFINE DATEl 
<SYSDAT: ASCIZ /A/ 
INTERNAL SYSDAT 
>> 

DEFINE VERSION (A.B) 

<DEFINE VERSl 

<SYSNUM: XWD tO'A.tQ'B 

XP SYSMOD.tD'A 

XP SYSVER.tD'B 

INTERNAL SYSNUM 

» 

DEFINE CUSPTAPE (A) 
<DEFINE CUSPl 
<SYSTAP: SIXBIT /A/ 
INTERNAL SYSTAP 
>> 

DEFINE ACPDL ( J, CHJN, CHJPDN ) 
< CH'J»N=CHJN 

CH' J'PnN=CHJPDN 
> 
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00360 
00370 



NAME <MINIMAL> 
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00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
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DATE <8-16-65> 
VERSION 1,4 
CUSPTAPE DTA0 

DEFINE THE 10 PaRT OF THE SYSTEM 
THAT T S ! 

DEFINE INTERRUPT SERVICE ROUTINES TO BE USED 
ASSIGN DEVICES TO PI CHANNELS 



DEFINE SYSTEM 
< 

ASSOC APR,6,<> 

ASSOC CTY,3,<> 

ASSOC SCN,3,<TTY0,TTY1> 

ASSOC OTC,4,<OTA0> 



DTSIZ=1 ;MULTIPLE DECTAPE DIRECTORIES 

SCNLIN=1 

;DEFINE highest AC to save and length OF PO LIST FOR EACH PI CHANNEL 



ACPDL 
ACPDL 
ACPDL 
ACPDL 
ACPDL 
ACPDL 
ACPDL 



(1,0,0) 

(2,0,0) 

(3,11,20) 

(4,11,20) 

(5,0,0) 

(6,17.20) 

(7,0,0) 



;definitions of devchn and devbit 
;these also occur in ioinu 

define assoc (a,n,d) 

< 

A'CHN=N 

> 

SYSTEM 
ASSOC APR,6,<> 
ASSOC CTY,3,<> 
ASSOC SCN,3,<TTY0,TTY1> 
ASSOC DTC,4,<DTA0> 



00120 
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00130 
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00140 

00150 ;APR PI BITS 

00160 

00170 APRBITrl 

00180 REPEAT 7-APRCHN,<APRBIT=APRBIT»2> 

APRBIT=APR8IT»2 

00190 XP PION,200 ;CONO PI,PI0N TURNS PI SYSTEM ON 

00200 XP PIOFF,400 ;TURN IT OFF 

00210 XP PICLK,PI0N+1B24+APRBIT ;TURN PI ON, AND FORCE CLOCK INT. 

00220 XP CLKOFF.1000+APRCHN 5C0N0 APR,CLKOFF TURNS CLOCK FLAG OFF 



I0INI2 - 10 INITIALI2ATI0N PART 2 PAGE 7 

MINIMAL CONFIGURATION 



ER 



00230 

00240 ;ASSEMBLE ALL DEVICE DATA BLOCKS AND LINK THEM TOGETHER 

00250 

00270 

00280 DEFINE SCNDDB (A,B,C) 

00290 < INTERNAL C'DB 

00300 C'DB: ZZ=. 

00310 SIXBIT /C/ 

00320 XWD A'CHN«PICHN,STTYBF+1 JLONG ENOUGH FOR PRINTING 

00330 ;SEQUENCED CARD IMAGE. 

00340 ;USER BUFFERS ARE 2 WORDS 

00350 aONGER THAN THE MONITORY TTY BUFFERS. 

00360 

00370 EXTERNAL TTYDSP 

00380 XWD C, TTYDSP 

00390 XWD DVTTY+DVIN+DV0UT,3 

00400 

00410 

00420 XWD PROG,0 

00430 XWD PROG,0 

00440 XP TTYPTR, ,-Ii 

00450 

00460 XP TTYCTR, .-ZZ 

00470 

00480 XP TTYSAV, .-ZZ 

00490 

00500 XP TTYBUF,.-ZZ 

00510 XP TTYeMl,TTYBUF-l 

00520 XP STTYBF,20 

00530 XP STTYB1,STTYBF+1 JLENGTH+l 

00540 BLOCK STTY8F 

00550 XP TTYBFE, .-ZZ-1 

00560 

00570 

00580 ;LINE NO. PARAMETERS 

00590 XP TTYLEN,SCNLIN+1 ;LENGTH OF TTY TRANSLATOR TABLE( INCLUDING TTY) 

00600 XP TSCNLN.SCNLIN-1 ;HIGHEST TTY LINE NO. (NOT COUNTING CTY) 

00610 XP TC0NLN,TSCNLN+1 ;CTY LINE NUMBER 

00620 XP MTTYLN.-TTYLEN ;NEGATIVE LENGTH OF TRANSLATOR TABLE 

00630 XP FSNCHN,SCNCHN«101 ;CHANNEL ASSIGN, FOR FULL DUPLEX SCN. 

00640 XP TTYLST,TTY0DB JFIRST TTY DEVICE DATA BLOCK 

00650 > 

00660 

00670 ;NEG. no. OF TELTYPE DEVICE DATA BLOCKS 

00680 

00690 MLTTYL=0 

00700 DEFINE ASSOC (A.N.D) 

00710 <IRP D,<IFIDN <A>.<SCN>.<MLTTYL=MLTTYL-1>>> 

00720 

00730 

00740 SYSTEM 

ASSOC APR,6,<> 

ASSOC CTY,3.<> 

ASSOC SCN,3,<TTY0,TTY1> 

ASSOC DTC,4,<DTA0> 
00750 



00760 



INTERNAL MLTTYL 
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00780 

00790 ;MAG TAPE DEVICE DATA BLOCK 

00800 

00810 MTCNUMS0 

00820 

00830 DEFINE MTCDDB (A.B.C) 

00840 < INTERNAL C'DB 

00850 C'DB: SIXBIT /C/ 

00860 MTCNUMsMTCNUM+1 

00870 XWO IORET+A'CHN«PICHN,<MTCNUM-1>«10000+201 

00880 

00890 

00900 XWD CMTDISP 

00910 EXTERNAL MTDISP 

00920 XWD 4400+DVMTA+DVIN+DVOUT, 154403 

00930 

00940 

00950 XWD PROG,0 

00960 XWD PROG,0 

00970 > 
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00980 

00990 JDECTAPE DEVICE DATA BLOCKS 



01000 

01010 OTCNUM=0 

01020 

01030 DEFINE DTCDDB (A,B,C) 

01040 < INTERNAL C'DB 

01050 C'DB: ZZ=. 

01060 SIXBIT /C/ 

01070 DTCNUM=DTCNUM+1 

01080 XWD IORET+A'CHN«PICHN,<DTCNUM-l>«10000+200 

01090 

01100 XWD CUTDSP 

01110 EXTERNAL UTDSP 

01120 XWD 4400+OVOIR+DVIN+DVOUT, 154403 

01130 

01140 

01150 

01160 

01170 XP UFREE,.-ZZ JNEXT FREE BLOCK NO. 

01180 

01190 XP UDIR,.-ZZ ;LINK to DIRECTORY IN DATA BLOCK 

01200 IFE DTSIZ.< EXP DIRBUF 

01210 > 

01220 IFN DTSIZ,< EXP DTD IR+200»<DTCNUM-1> 

01230 > 

01240 > 

01250 > 
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01260 

01270 JLINE PRINTER DEVICE DTA BLOCK 

01280 

01290 DEFINE LPTQDB (A,B,C) 

01300 <INTERNAL LPTDB. LPTDAT. LPTCHR, LPT I OS, LPTSER , LPTMOD 

01310 INTERNAL LPTBUF , LPTPTR, LPTADR. LPTSVl 

01320 EXTERNAL LPTDSP 

01330 

01340 LPTDB: 

01350 LPTDAT: SIXBIT /LPT/ 

01360 LPTCHR: XWD A'CHN»PICHN,32 

01370 LPTIOS: 

01380 LPTSER: XWD C, LPTDSP 

01390 LPTMOD: XWD 0+DVOUT,3 

01400 

01410 LPTBUF: 

01420 LPTPTR: 

01430 LPTADR: XWD PROG,0 

01440 LPTSVi: 

01450 

01460 XP LPTCLB.LPTCHN+200 ;PI CHANNEL AND BUSY FLAG 

01470 XP LPTCHB.11»LPTCHN JLINE PRINTER ERROR AND DATA CHANNELS 

01480 > 
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01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 



JCARO READER DEVICE DATA BLOCK 

DEFINE CDRDDB (A,B,C) 
<INTERNAL CDRDB , CDRDAT , CRD IS 
EXTERNAL CDRDSP 

CDRDB: 

CDROAT: SIXBIT /CDR/ 

XWO A'CHN«PICHN,34 JLONG ENOUGH FOR BINARY CARDS 



XWD C. CDRDSP 

XWD DVCOR+1400+DVIN, 14403 





XWO PROG,0 




CRDIS: JRST . 
> 
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01690 

01700 ;PAPER TAPE READER DEVICE DATA BLOCK 

01710 

01720 DEFINE PTRDDB (A,B,C) 

01730 <INTERNAL PTRDB . PTRDAT , PTRCHR, PTRIOS. PTRSER 

01740 INTERNAL PTRMOD, PTRBUF , PTRADR, PTRPTR, PTRCTR, PTRSVC, PTRSVl 

01750 EXTERNAL PTRDSP 

01760 

01770 PTRDB: 

01780 PTRDAT: SIXBIT /PTR/ 

01790 PTRCHR: XWD A'CHN«PICHN,41 

01800 PTRIOS: 

01810 PTRSER: XWD C, PTRDSP 

01820 PTRMOD: XWD 1000+DV IN , 14403 

01830 

01840 PTRBUF: 

01850 PTRADR: XWD PROG,0 

01860 PTRPTR: 

01870 PTRCTR: 

01880 PTRSVC: 

01890 PTRSVi: 

01900 > 
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01910 

01920 JPAPER TAPE PUNCH DEVICE DATA BLOCK 

01930 

01940 DEFINE PTPODB (A,B,C) 

01950 <INTERNAL PTPDB , PTPDAT , PTPCHR , PTPI OS, PTPSER, PTPMOD, PTPgUF 

01960 INTERNAL PTPPTR , PTPADR, PTPCTR, PTPCNT, PTPCHA, PTPS I 

01970 EXTERNAL PTPDSP 

01980 

01990 PTPDB: 

02000 PTPDAT: SIXBIT /PTP/ 

02010 PTPCHR: XWD A'CHN»PICHN,41 

02020 PTPIOS: 

02030 PTPSER: XWD C, PTPDSP 

02040 PTPMOD: XWD 1000+DVOUT, 14403 

02050 

02060 PTPBUF: 

02070 PTPPTR: 

02080 PTPADR: XWD PROG,0 

02090 PTPCTR: 

02100 PTPCNT: 

02110 PTPCHa: 

02120 PTPSiO: 

02130 > 
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000000 000001*000000 



000001 646471 200000 

000002 000300 000021 

000003 000000 000000 

000004 000035'000000 

000005 000013 000003 

000006 000000 000000 

000007 000000 000000 

000010 000007 000000 

000011 000007 000000 

000012 000000 000000 

000013 000000 000000 

000014 000000 000000 

000035 646471 210000 

000036 000300 000021 

000037 000000 000000 

000040 000071*000004' 

000041 000013 000003 

000042 000000 000000 

000043 000000 000000 

000044 000007 000000 

000045 000007 000000 

000046 000000 000000 

000047 000000 000000 
000050 000000 000000 

000071 446441 200000 

000072 000420 000200 



02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 



{GENERATE DEVICE DATA BLOCKS NEEDED FOR THIS CONFIGURATION 

DEFINE ASSOC (A,B.C) 

< 

IRP C,< 

JDEFINE FORWARD LINL SYMBOL 
LINK 



A'DDB A,B,C 

C=0 ;SET LINK TO 0(IN CASE THIS IS LAST DDB) 

DEFINE LINK 

<C=.> 

> 

> 



INTERNAL DEVLST 

DEVLST: XWD FIRDB,0 

DEFINE LINK 
<FIRDB=.> 

SYSTEM 
ASSOC APR,6,<> 
ASSOC CTY,3.<> 
ASSOC SCN,3,<TTY0,TTY1> 
SIXBIT /TTY0/ 
XWD SCNCHN»PICHN,STTYBF+1 


XWD TTY0,TTYDSP 
XWD DVTTY+DVIN+0V0UT,3 



XWD PROG,0 
XWD PROG,0 




{BEGINNING OF DEVICE DATA BLOCK CHAIN 



JLONG ENOUGH FOR PRINTING 



JLONG ENOUGH FOR PRINTING 





SIXBIT /TTYl/ 

XWD SCNCHN»PICHN.STTYBF+1 



XWD TTY1,TTYDSP 

XWD DVTTY+DVIN+DV0UT,3 





XWD PROG,0 

XWD PROG,0 







ASSOC DTC,4,<DTA0> 

SIXBIT /DTA0/ 

XWD IORET+DTCCHN*PICHN,<OTCNUM-l>»10000+200 



00PI073 
000074 
000075 
000076 

000100 
000101 
000102 
000103 



000000 
000000 
004407 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
154403 
000000 
000000 
000000 
000000 
000000 
000104' 





XWD DTA0,UTDSP 

XWD 4400+DVDIR+DVIN+DVOUT. 154403 











EXP DTDIR+200»<DTCNUM-1> 
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THFRE ARE NO ERRORS 
PROGRAM BREAK IS 000304 



02410 
02420 
02430 
02440 
02450 
02460 

02470 

02480 

02490 

DTDIR: 

INTERNAL 

02500 
02510 



INTERNAL 



LIT 

IFE OTSIZ.< 
DIRBUF 



DIRBUF: BLOCK 200 



IFN DTSIZ,<DTDIR: 
INTERNAL DTDIR 
> 

BLOCK DTCNUM»200 
DTDIR 



END, 



BLOCK DTCNUM»200 
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A 

ACl 

AC2 

AC3 

AL 

APRBIT 

APRCHN 

ASSCON 

ASSPRG 

B 

BUFPNT 

BUFWRD 

CHIN 

CHIPDN 

CH2N 

CH2P0N 

CH3N 

CH3PDN 

CH4N 

CH4PDN 

CH5N 

CH5PDN 

CH6N 

CH6PDN 

CH7N 

CH7PDN 

CLKOFF 

CLOSB 

CLSIN 

CLSOUT 

CTYCHN 

D 

DAT 

nCL 

OCW 

DDI 

DDO 

nOTMEM 

DDTSYM 

OEN 

OEVADR 

OEVBUF 

DEVCHR 

DEVCTR 

DEVDAT 

DEVIAD 

nEVIOS 

OEVLOG 

OEVLST 

OEVMOD 

DEVNAM 

OEVOAD 

DEVPTR 

OEVSER 
OGF 



000000 


INT 


000015 


INT 


000016 


INT 


000017 


INT 


000001 


INT 


000002 




000006 




400000 


INT 


200000 


INT 


000014 


INT 


000012 


INT 


000013 


INT 


000000 




000000 




000000 




000000 




000011 




000020 




000011 




000020 




000000 




000000 




000017 




000020 




000000 




000000 




001006 


INT 


002000 


INT 


000002 


INT 


000001 


INT 


000003 




000017 


INT 


000005 


INT 


000001 


INT 


020000 


INT 


000007 


INT 


000006 


INT 


000037 


INT 


000036 


INT 


000004 


INT 


000007 


INT 


000006 


INT 


000001 


INT 


000011 


INT 


000006 


INT 


000007 


INT 


000002 


INT 


000005 


INT 


000000 ' 


INT 


000004 


INT 


000000 


INT 


000010 


INT 


000010 


INT 


000003 


INT 


000012 


INT 
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DIN 
OLK 

nou 

OR 

nRL 
nsi 
nso 

OTA0 

DTA0DB 

DTCCHN 

OTCNUM 

OTniR 

nTSI2 

OTW 

nVAVAL 

nvcoR 
nvniR 
nvniRi 
nviN 

DVLPT 

DVMTA 

DVOUT 

DVTTY 

ENTRR 

EIRDB 

ESNCHN 

I 

IB 

IBUFR 

INITR 

INPB 

10 

lOACT 

lOBEG 

lORKTL 

lOnON 

lODEND 

lOnERR 

ionise 

lOnONE 

lOnTER 

lOFND 

lOFST 

lOlMPM 

lONRCK 

lORDEL 

lORET 

I OS 

lOSTRT 

lOUSE 

lOW 

lOWC 

lOWS 

ITEM 

J8EADR 



000003 


INT 


000005 


INT 


000002 


INT 


000016 


INT 


000000 


INT 


000011 


INT 


000010 


INT 


000000 




000071' 


INT 


000004 




000001 




000104' 


INT 


000001 




040000 


INT 


000040 


INT 


100000 


INT 


000004 


INT 


400000 


INT 


000002 


TNT 


040000 


INT 


000020 


INT 


000001 


INT 


000010 


INT 


020000 


INT 


000001' 




000303 


INT 


000010 


INT 


000013 


INT 


200000 


TNT 


400000 


INT 


010000 


INT 


000020 


INT 


010000 


INT 


000002 


INT 


040000 


INT 


000040 


TNT 


020000 


TNT 


200000 


TNT 


400000 


INT 


400000 


INT 


100000 


INT 


000040 


INT 


000004 


INT 


400000 


TNT 


000100 


INT 


000100 


TNT 


000020 


INT 


000000 


INT 


000010 


INT 


400000 


INT 


000001 


INT 


000020 


INT 


400000 


INT 


000004 


INT 


000000 


TNT 
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JBFCTR 


000002 


INT 


JBFPTR 


000001 


INT 


JBUF 


000005 


INT 


JDAT 


000011 


INT 


JERR 


002000 


INT 


JIOW 


100000 


INT 


JNA 


004000 


INT 


LOOKB 


040000 


INT 


MINIMA 


000000 


INT 


MLTTYL 


777777777776 


INT 


MTCNUM 


000000 




MTTYLN 


777777777776 


INT 


MTW 


010000 


INT 


OBUFB 


100000 


INT 


OUTPR 


004000 


INT 


POP 


000003 


INT 


PICHN 


000100 


INT 


PICLK 


004202 


INT 


PIOFF 


000400 


INT 


PION 


000200 


INT 


PROG 


000007 


INT 


RUN 


200000 


INT 


RUNABL 


204000 


INT 


SCNCHN 


000003 




SCNLIN 


000001 




STTYBl 


000021 


INT 


STTYBF 


000020 


INT 


TAG 


000001 


INT 


TACl 


000002 


INT 


TCONLN 


000001 


TNT 


TEM 


000010 


INT 


TSCNLN 


000000 


INT 


TTY0 


000035' 




TTY0D8 


000001 ' 


INT 


TTYl 


000071* 




TTYIDB 


000035' 


INT 


TTYATC 


020000 


INT 


TTYBFE 


000033 


INT 


TTYBMl 


000013 


INT 


TTYBUF 


000014 


TNT 


TTYCTR 


000012 


INT 


TTYDSP 


000040' 


FXT 


TTYLEN 


000002 


INT 


TTYLST 


000001' 


INT 


TTYPTR 


000011 


INT 


TTYSAV 


000013 


INT 


TTYUSE 


010000 


INT 


UDIR 


000012 


INT 


UFREE 


000011 


INT 


USRMOD 


010000 


INT 


UTDSP 


000074' 


EXT 


uuo 


000014 


INT 


zz 


000071' 





END OF ASSEMBLY 



